COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE	TFTEST
C00003 ENDMK
C⊗;
	TITLE	TFTEST

A←1
B←2
C←3
D←4
E←5
P←17

FILEF:	SIXBIT	/BAZ/
	BLOCK	3
IBUF:	BLOCK	3
LPDL←←10
PDL:	BLOCK	LPDL

TFTEST:	MOVE	P,[IOWD LPDL,PDL]
	INIT
	SIXBIT	/DSK/
	IBUF
	HALT	.
	SETZM	FILEF+3
	LOOKUP	FILEF
	JRST	NOFILE
CON:	PUSHJ	P,GETCH
CON1:	JUMPN	C,.-1
	MOVE	B,IBUF+1
	MOVE	A,IBUF+2
	PUSHJ	P,GETCH
	JUMPN	C,.+3
	PUSHJ	P,GETCH1
	JRST	CON1
	OUTSTR	[ASCIZ /
NULL IN MIDDLE OF STORY.
/]
	JRST	@JOBDDT↑
	
GETCH:	SOSG	IBUF+2
GETCH1:	IN
	JRST	.+3
	OUTSTR	[ASCIZ /EOF/]
	EXIT
	ILDB	C,IBUF+1
	POPJ	P,

NOFILE:	OUTSTR	[ASCIZ /FILE NOT FOUND: BAZ/]
	EXIT

	END	TFTEST